home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
ansi1.zip
/
ANSI.DOC
< prev
next >
Wrap
Text File
|
1991-09-06
|
3KB
|
54 lines
09-06-91
This is the Geometric Tolerancing routine we use at Graham Co., Milwaukee.
You are free to do want you want to these files. If you have any
comments, I can be contacted via CompuServe; Ralph Chapman 70314,1672.
; Add this line to your menu file ***pop (pulldown) section
[Geometric Tol.](load "c:/acad/data/ansi") ansi
; Add the following lines in your ***icon menu section
**ansi
[Select Geometric Tolerance Block]
[ansi(STRA)]^c^c(command "insert" "*c:/acad/data/STRA" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(FLAT)]^c^c(command "insert" "*c:/acad/data/FLAT" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(CIRC)]^c^c(command "insert" "*c:/acad/data/CIRC" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(CYL)]^c^c(command "insert" "*c:/acad/data/CYL" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(PROF)]^c^c(command "insert" "*c:/acad/data/PROF" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(PROL)]^c^c(command "insert" "*c:/acad/data/PROL" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(ANG)]^c^c(command "insert" "*c:/acad/data/ANG" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(PERY)]^c^c(command "insert" "*c:/acad/data/PERY" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(PARA)]^c^c(command "insert" "*c:/acad/data/PARA" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(POS)]^c^c(command "insert" "*c:/acad/data/POS" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(CONC)]^c^c(command "insert" "*c:/acad/data/CONC" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(RUN)]^c^c(command "insert" "*c:/acad/data/RUN" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(RUNT)]^c^c(command "insert" "*c:/acad/data/RUNT" INPT "1" "0" "text";+
"c" "@0.729,0.108" ".125" "0" TOL "text" "c" "@0.567,0" ".125" "0" DAT)
[ansi(exit)]^c^c
Notes:
This routine is set up to be copied & run in a directory named
C:\ACAD\DATA. Also, the blocks will be inserted on a layer called "DIM"
with color "GREEN". If you wish to run this with different parameters,
just change the appropriate sections.
The file ANSI.ZIP should contain the following files:
ANG.DWG CONC.DWG CYL.DWG
FLAT.DWG PARA.DWG PERY.DWG
PROF.DWG CIRC.DWG PROL.DWG
RUN.DWG RUNT.DWG STRA.DWG
POS.DWG ANSI.LSP ANSI.DOC
ANSI.SLB